---
title: "Storyboard Showcase"
output:
flexdashboard::flex_dashboard:
storyboard: TRUE
source: embed
---
```{r setup, include=FALSE}
startCondaEnv('flexdash')
knitr::opts_chunk$set(echo = FALSE)
library(plotly)
library(flexdashboard)
```
### Including Plots, sometimes they have interesting data and other times its this weird graph
```{r}
p <- plot_ly(midwest, x = ~percollege, color = ~state, type = "box")
p
```
- This is a fun example of a graph for which I do not know what the data means
### Plotly will not give you a virus if you click it, I swear
```{r}
library(plotly)
p <- ggplot(data = diamonds, aes(x = cut, fill = clarity)) +
geom_bar(position = "dodge")
ggplotly(p)
```
- This is a fun example of a graph for which I do not know what the data means
- This one is interactive and I think that is cool